home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / applications / 2616 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  2.2 KB
  1. Path: pub.news.uk.psi.net!usenet
  2. From: ben@alien.co.uk (Ben Rogers)
  3. Newsgroups: comp.sys.amiga.applications
  4. Subject: Re: WordWorth5 ARexx
  5. Date: 29 Feb 1996 16:52:08 GMT
  6. Organization: PSINet UK Public Usenet Site
  7. Message-ID: <1842.6633T968T604@alien.co.uk>
  8. References: <1598.6626T963T1270@sn.no>
  9. NNTP-Posting-Host: amiga1200.alien.co.uk
  10. X-Newsreader: THOR 2.22 (Amiga;TCP/IP) *UNREGISTERED*
  11.  
  12. Hi Christopher Naas,
  13.  
  14. >Anyone know a better way of obtaining a list of installed fonts for
  15. >WordWorth5?
  16.  
  17. I've made a few alterations to your script, which might make it a bit faster,
  18. and the main change is that it uses the actual font list that Wordworth 5 uses
  19. at start-up.
  20.  
  21. ------ Snip Here ------
  22. /* Make list of all fonts in WordWorth 5                 */
  23. /* 22.02.96 by Christopher Naas                          */
  24. /* 29.02.96 Amendments by Ben Rogers                     */
  25. /*                                                       */
  26. /* Do with it as you please, just don't claim credit or  */
  27. /* make any money from it :)                             */
  28.  
  29. Options Results
  30.  
  31. /* Use the Wordworth 5 font list */
  32. Address Command "Sort WwFonts/UFST/FontList To T:WwFontList"
  33.  
  34. /* This makes sure you use the new window */
  35. New PORTNAME FontList
  36. Address FontList
  37.  
  38. /* Get a font and save it and it's size */
  39. GetFont
  40. TitleFont = Result
  41. GetFontSize
  42. TitleFontSize = Result
  43.  
  44. /* read in the sorted font list */
  45. If Open( List, "T:WwFontList", R ) Then Do
  46.    Do While ~EOF( List )
  47.       Line = ReadLn( List )
  48.       Parse Var Line FontName "," .
  49.       If FontName ~= "" Then Do
  50.          Font NAME TitleFont SIZE TitleFontSize
  51.          Text FontName
  52.          Text '  12'
  53.  
  54.          NewParagraph
  55.  
  56.          Font NAME FontName SIZE 12
  57.          Text 'ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 0123456789'
  58.  
  59.          NewParagraph
  60.          NewParagraph
  61.       End
  62.    End
  63.    Close( List )
  64. End
  65.  
  66. ------ Snip Here ------
  67.  
  68. ---------------------------------------------------------------------
  69.  Ben Rogers, B.Sc. (Hons)      /   Amiga 1200-40MHz-030  /  Mail for
  70.  ben@alien.co.uk              /      MMU-6Mb-240HD      /   PGP Key
  71.  http://www.alien.co.uk/~bdr /   Amiga 500-7MHz-000    /
  72. ---------------------------------------------------------------------
  73.  
  74.